FUNC EXMP1.FUN[INS,MUS];	< Causes function file to be read into MBOX  
COMMON GLSFM INSA;		< "INSA" refers to generic instrument GLSFM  
*				< End of PRECEDE section 
 REVRB 0 0 1;			< Instrument REVRB plays one "note"    
 P2 22;				< Must last until after all instruments are done 
 END;				< End of data for REVRB   
 INSA 0 20;			< INSA plays for 20 seconds "basic time" 
INSA 0 0 1; P2 .2;  
 P2 1 .5,1;			< Random durations between .5" and 1"    
P3 MOVE/10 200 250/10 250 200;	< Start frequency goes up slightly, then bac
P4 1;				< Maximum amplitude  
P5 F2;				< Amp function 
P6 3;				< End point of attack segment of amplitude function
P7 .03;				< Duration of attack (independent of P2)    
P8 4;				< Begin point of decay segment 
P9 .05;				< Duration of decay (independent of P2)
P10 45;				< 45 degrees = channel 1
P11 2;				< distance factor   
P12 .06;			< 6% reverberation 
P13 1;				< c/m ratio = 1/1   
P14 1;    
P15 4;				< Modulation frequency offset = 4 Hz.   
P16 0;    
P17 6;				< Max index = 6
P18 F9;				< Index function differs from amp function  
P19 MOVE/20 200,200 50,400;	< Random selection range of gliss end frequenci
       				<    gradually enlarges 
P20 F4;				< Glissando function    
P21 0;				< No attack and decay set, therefore function lasts    
P22 0;				<   exactly P2"
P23 0;    
P24 0;    
END; 
     
RUN;